home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_gen / t4diblib.zip / ANIMATE8.F3_ / ANIMATE8.F3
Text File  |  1995-09-28  |  2KB  |  94 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "ANIMATE8"
  4.    ClientHeight    =   1692
  5.    ClientLeft      =   2628
  6.    ClientTop       =   2688
  7.    ClientWidth     =   2880
  8.    Height          =   2112
  9.    Left            =   2580
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1692
  12.    ScaleWidth      =   2880
  13.    Top             =   2316
  14.    Width           =   2976
  15.    Begin T4DILIB dilib2 
  16.       Caption         =   "dilib2"
  17.       ControlMode     =   0  'Lib -> PIC
  18.       Height          =   372
  19.       Left            =   1800
  20.       Top             =   1200
  21.       Visible         =   0   'False
  22.       Width           =   972
  23.    End
  24.    Begin T4DILIB dilib1 
  25.       Caption         =   "dilib1"
  26.       ControlMode     =   0  'Lib -> PIC
  27.       Height          =   372
  28.       Left            =   1680
  29.       Top             =   960
  30.       Visible         =   0   'False
  31.       Width           =   972
  32.    End
  33.    Begin CommandButton Command1 
  34.       Caption         =   "&Quit"
  35.       Height          =   372
  36.       Left            =   120
  37.       TabIndex        =   0
  38.       Top             =   1200
  39.       Width           =   1452
  40.    End
  41. End
  42. Option Explicit
  43. Declare Function GetFreeSpace& Lib "kernel" (ByVal x%)
  44. Dim TimeIn!
  45. Dim Frames%
  46.  
  47. Sub Command1_Click ()
  48.  Terminate
  49. End Sub
  50.  
  51. Sub Form_Load ()
  52. Dim loopctr%, memctr%
  53.  top = (screen.Height - Height) / 2!
  54.  left = (screen.Width - Width) / 2!
  55.  Show
  56.  Frames = 0
  57.  TimeIn = Timer
  58.  For loopctr = 1 To 50
  59.   Picture = LoadPicture("blue_1.bmp")
  60.   Frames = Frames + 1
  61.   Picture = LoadPicture("blue_2.bmp")
  62.   Frames = Frames + 1
  63.   Picture = LoadPicture("blue_3.bmp")
  64.   Frames = Frames + 1
  65.   Picture = LoadPicture("blue_4.bmp")
  66.   Frames = Frames + 1
  67.   Picture = LoadPicture("red_1.bmp")
  68.   Frames = Frames + 1
  69.   Picture = LoadPicture("red_2.bmp")
  70.   Frames = Frames + 1
  71.   Picture = LoadPicture("red_3.bmp")
  72.   Frames = Frames + 1
  73.   Picture = LoadPicture("red_4.bmp")
  74.   Frames = Frames + 1
  75.   DoEvents
  76.  Next loopctr
  77.  Terminate
  78. End Sub
  79.  
  80. Sub Form_Unload (Cancel As Integer)
  81.  End
  82. End Sub
  83.  
  84. Sub Terminate ()
  85. Dim TimeOut!, TimeElapsed!, fps!
  86.  TimeOut = Timer
  87.  TimeElapsed = TimeOut - TimeIn
  88.  fps = Frames
  89.  fps = Frames / TimeElapsed
  90.  MsgBox Trim$(Str$(fps)) + " frames per second."
  91.  End
  92. End Sub
  93.  
  94.